home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 49 / Amiga Format CD49 (2000-01-17)(Future Publishing)(GB)(Track 1 of 3)[!][issue 2000-02].iso / -serious- / programming / e / powerd0.06 / modules / intuition / intuition.m < prev    next >
Text File  |  1999-11-30  |  12KB  |  594 lines
  1.  
  2. MODULE    'exec/ports'    // only this is really needed (IntuiMessage)
  3.  
  4. /*
  5. MODULE    'devices/keymap',
  6.             'exec/ports',
  7.             'graphics/clip',
  8.             'graphics/gfx',
  9.             'graphics/rastport',
  10.             'graphics/text',
  11.             'intuition/screens',
  12.             'intuition/sghooks',
  13.             'utility/tagitem'
  14. */
  15.  
  16. OBJECT Menu
  17.     NextMenu:PTR TO Menu,
  18.     LeftEdge:INT,
  19.     TopEdge:INT,
  20.     Width:INT,
  21.     Height:INT,
  22.     Flags:UWORD,
  23.     MenuName:PTR TO CHAR,
  24.     FirstItem:PTR TO MenuItem,
  25.     JazzX:INT,
  26.     JazzY:INT,
  27.     BeatX:INT,
  28.     BeatY:INT
  29.  
  30. CONST    MENUENABLED=1,
  31.         MIDRAWN=$100
  32.  
  33. OBJECT MenuItem
  34.     NextItem:PTR TO MenuItem,
  35.     LeftEdge:INT,
  36.     TopEdge:INT,
  37.     Width:INT,
  38.     Height:INT,
  39.     Flags:UWORD,
  40.     MutualExclude:LONG,
  41.     ItemFill:LONG,
  42.     SelectFill:LONG,
  43.     Command:CHAR,
  44.     SubItem:PTR TO MenuItem,
  45.     NextSelect:UWORD
  46.  
  47. CONST    CHECKIT=1,
  48.         ITEMTEXT=2,
  49.         COMMSEQ=4,
  50.         MENUTOGGLE=8,
  51.         ITEMENABLED=16,
  52.         HIGHFLAGS=$C0,
  53.         HIGHIMAGE=0,
  54.         HIGHCOMP=$40,
  55.         HIGHBOX=$80,
  56.         HIGHNONE=$C0,
  57.         CHECKED=$100,
  58.         ISDRAWN=$1000,
  59.         HIGHITEM=$2000,
  60.         MENUTOGGLED=$4000
  61.  
  62. OBJECT Requester
  63.     OlderRequest:PTR TO Requester,
  64.     LeftEdge:INT,
  65.     TopEdge:INT,
  66.     Width:INT,
  67.     Height:INT,
  68.     RelLeft:INT,
  69.     RelTop:INT,
  70.     ReqGadget:PTR TO Gadget,
  71.     ReqBorder:PTR TO Border,
  72.     ReqText:PTR TO IntuiText,
  73.     Flags:UWORD,
  74.     BackFill:CHAR,
  75.     ReqLayer:PTR TO Layer,
  76.     ReqPad1[32]:CHAR,
  77.     ImageBMap:PTR TO BitMap,
  78.     RWindow:PTR TO Window,
  79.     ReqImage:PTR TO Image,
  80.     ReqPad2[32]:CHAR
  81.  
  82. CONST    POINTREL=1,
  83.         PREDRAWN=2,
  84.         NOISYREQ=4,
  85.         SIMPLEREQ=16,
  86.         USEREQIMAGE=$20,
  87.         NOREQBACKFILL=$40,
  88.         REQOFFWINDOW=$1000,
  89.         REQACTIVE=$2000,
  90.         SYSREQUEST=$4000,
  91.         DEFERREFRESH=$8000
  92.  
  93. CONST    GD_LEFTEDGE=4
  94.  
  95. OBJECT Gadget
  96.     NextGadget:PTR TO Gadget,
  97.     LeftEdge:INT,
  98.     TopEdge:INT,
  99.     Width:INT,
  100.     Height:INT,
  101.     Flags:UWORD,
  102.     Activation:UWORD,
  103.     GadgetType:UWORD,
  104.     GadgetRender:LONG,
  105.     SelectRender:LONG,
  106.     GadgetText:PTR TO IntuiText,
  107.     MutualExclude:LONG,
  108.     SpecialInfo:LONG,
  109.     GadgetID:UWORD,
  110.     UserData:LONG
  111.  
  112. OBJECT ExtGadget OF Gadget
  113.     MoreFlags:LONG,
  114.     BoundsLeftEdge:INT,
  115.     BoundsTopEdge:INT,
  116.     BoundsWidth:INT,
  117.     BoundsHeight:INT
  118.  
  119. CONST    GFLG_GADGHIGHBITS=3,
  120.         GFLG_GADGHCOMP=0,
  121.         GFLG_GADGHBOX=1,
  122.         GFLG_GADGHIMAGE=2,
  123.         GFLG_GADGHNONE=3,
  124.         GFLG_GADGIMAGE=4,
  125.         GFLG_RELBOTTOM=8,
  126.         GFLG_RELRIGHT=16,
  127.         GFLG_RELWIDTH=$20,
  128.         GFLG_RELHEIGHT=$40,
  129.         GFLG_RELSPECIAL=$4000,
  130.         GFLG_SELECTED=$80,
  131.         GFLG_DISABLED=$100,
  132.         GFLG_LABELMASK=$3000,
  133.         GFLG_LABELITEXT=0,
  134.         GFLG_LABELSTRING=$1000,
  135.         GFLG_LABELIMAGE=$2000,
  136.         GFLG_TABCYCLE=$200,
  137.         GFLG_STRINGEXTEND=$400,
  138.         GFLG_IMAGEDISABLE=$800,
  139.         GFLG_EXTENDED=$8000,
  140.         GACT_RELVERIFY=1,
  141.         GACT_IMMEDIATE=2,
  142.         GACT_ENDGADGET=4,
  143.         GACT_FOLLOWMOUSE=8,
  144.         GACT_RIGHTBORDER=16,
  145.         GACT_LEFTBORDER=$20,
  146.         GACT_TOPBORDER=$40,
  147.         GACT_BOTTOMBORDER=$80,
  148.         GACT_BORDERSNIFF=$8000,
  149.         GACT_TOGGLESELECT=$100,
  150.         GACT_BOOLEXTEND=$2000,
  151.         GACT_STRINGLEFT=0,
  152.         GACT_STRINGCENTER=$200,
  153.         GACT_STRINGRIGHT=$400,
  154.         GACT_LONGINT=$800,
  155.         GACT_ALTKEYMAP=$1000,
  156.         GACT_STRINGEXTEND=$2000,
  157.         GACT_ACTIVEGADGET=$4000,
  158.         GTYP_GADGETTYPE=$FC00,
  159.         GTYP_SYSGADGET=$8000,
  160.         GTYP_SCRGADGET=$4000,
  161.         GTYP_GZZGADGET=$2000,
  162.         GTYP_REQGADGET=$1000,
  163.         GTYP_SIZING=16,
  164.         GTYP_WDRAGGING=$20,
  165.         GTYP_SDRAGGING=$30,
  166.         GTYP_WUPFRONT=$40,
  167.         GTYP_SUPFRONT=$50,
  168.         GTYP_WDOWNBACK=$60,
  169.         GTYP_SDOWNBACK=$70,
  170.         GTYP_CLOSE=$80,
  171.         GTYP_BOOLGADGET=1,
  172.         GTYP_GADGET0002=2,
  173.         GTYP_PROPGADGET=3,
  174.         GTYP_STRGADGET=4,
  175.         GTYP_CUSTOMGADGET=5,
  176.         GTYP_GTYPEMASK=7,
  177.         GTYP_SYSTYPEMASK=$F0,
  178.         GTYP_WDEPTH=$40,
  179.         GTYP_SDEPTH=$50,
  180.         GTYP_WZOOM=$60,
  181.         GTYP_SUNUSED=$70,
  182.         GMORE_BOUNDS=1,
  183.         GMORE_GADGETHELP=2,
  184.         GMORE_SCROLLRASTER=4
  185.  
  186. OBJECT BoolInfo
  187.     Flags:UWORD,
  188.     Mask:PTR TO UWORD,
  189.     Reserved:LONG
  190.  
  191. CONST    BOOLMASK=1
  192.  
  193. OBJECT PropInfo
  194.     Flags:UWORD,
  195.     HorizPot:UWORD,
  196.     VertPot:UWORD,
  197.     HorizBody:UWORD,
  198.     VertBody:UWORD,
  199.     CWidth:UWORD,
  200.     CHeight:UWORD,
  201.     HPotRes:UWORD,
  202.     VPotRes:UWORD,
  203.     LeftBorder:UWORD,
  204.     TopBorder:UWORD
  205.  
  206. CONST    AUTOKNOB=1,
  207.         FREEHORIZ=2,
  208.         FREEVERT=4,
  209.         PROPBORDERLESS=8,
  210.         KNOBHIT=$100,
  211.         PROPNEWLOOK=16,
  212.         KNOBHMIN=6,
  213.         KNOBVMIN=4,
  214.         MAXBODY=$FFFF,
  215.         MAXPOT=$FFFF
  216.  
  217. OBJECT StringInfo
  218.     Buffer:PTR TO CHAR,
  219.     UndoBuffer:PTR TO CHAR,
  220.     BufferPos:INT,
  221.     MaxChars:INT,
  222.     DispPos:INT,
  223.     UnDoPos:INT,
  224.     NumChars:INT,
  225.     DispCount:INT,
  226.     CLeft:INT,
  227.     CTop:INT,
  228.     Extension:PTR TO StringExtend,
  229.     LongInt:LONG,
  230.     AltKeyMap:PTR TO KeyMap
  231.  
  232. OBJECT IntuiText
  233.     FrontPen:CHAR,
  234.     BackPen:CHAR,
  235.     DrawMode:CHAR,
  236.     LeftEdge:INT,
  237.     TopEdge:INT,
  238.     ITextFont:PTR TO TextAttr,
  239.     IText:PTR TO CHAR,
  240.     NextText:PTR TO IntuiText
  241.  
  242. OBJECT border
  243.     LeftEdge:INT,
  244.     TopEdge:INT,
  245.     FrontPen:CHAR,
  246.     BackPen:CHAR,
  247.     DrawMode:CHAR,
  248.     Count:UBYTE,
  249.     XY:PTR TO INT,
  250.     NextBorder:PTR TO Border
  251.  
  252. CONST    IG_LEFTEDGE=0
  253.  
  254. OBJECT Image
  255.     LeftEdge:INT,
  256.     TopEdge:INT,
  257.     Width:INT,
  258.     Height:INT,
  259.     Depth:INT,
  260.     ImageData:PTR TO UWORD,
  261.     PlanePick:CHAR,
  262.     PlaneOnOff:CHAR,
  263.     NextImage:PTR TO Image
  264.  
  265. OBJECT IntuiMessage
  266.     Execmessage:MN,
  267.     Class:LONG,
  268.     Code:UWORD,
  269.     Qualifier:UWORD,
  270.     IAddress:LONG,
  271.     MouseX:INT,
  272.     MouseY:INT,
  273.     Seconds:LONG,
  274.     Micros:LONG,
  275.     IDCMPWindow:PTR TO Window,
  276.     SpecialLink:PTR TO IntuiMessage
  277.  
  278. OBJECT ExtIntuiMessage
  279.     IntuiMessage:IntuiMessage,
  280.     TabletData:PTR TO TabletData
  281.  
  282. CONST    IDCMP_SIZEVERIFY=1,
  283.         IDCMP_NEWSIZE=2,
  284.         IDCMP_REFRESHWINDOW=4,
  285.         IDCMP_MOUSEBUTTONS=8,
  286.         IDCMP_MOUSEMOVE=16,
  287.         IDCMP_GADGETDOWN=$20,
  288.         IDCMP_GADGETUP=$40,
  289.         IDCMP_REQSET=$80,
  290.         IDCMP_MENUPICK=$100,
  291.         IDCMP_CLOSEWINDOW=$200,
  292.         IDCMP_RAWKEY=$400,
  293.         IDCMP_REQVERIFY=$800,
  294.         IDCMP_REQCLEAR=$1000,
  295.         IDCMP_MENUVERIFY=$2000,
  296.         IDCMP_NEWPREFS=$4000,
  297.         IDCMP_DISKINSERTED=$8000,
  298.         IDCMP_DISKREMOVED=$10000,
  299.         IDCMP_WBENCHMESSAGE=$20000,
  300.         IDCMP_ACTIVEWINDOW=$40000,
  301.         IDCMP_INACTIVEWINDOW=$80000,
  302.         IDCMP_DELTAMOVE=$100000,
  303.         IDCMP_VANILLAKEY=$200000,
  304.         IDCMP_INTUITICKS=$400000,
  305.         IDCMP_IDCMPUPDATE=$800000,
  306.         IDCMP_MENUHELP=$1000000,
  307.         IDCMP_CHANGEWINDOW=$2000000,
  308.         IDCMP_GADGETHELP=$4000000,
  309.         IDCMP_LONELYMESSAGE=$80000000,
  310.         CWCODE_MOVESIZE=0,
  311.         CWCODE_DEPTH=1,
  312.         MENUHOT=1,
  313.         MENUCANCEL=2,
  314.         MENUWAITING=3,
  315.         OKOK=1,
  316.         OKABORT=4,
  317.         OKCANCEL=2,
  318.         WBENCHOPEN=1,
  319.         WBENCHCLOSE=2
  320.  
  321. OBJECT IBox
  322.     Left:INT,
  323.     Top:INT,
  324.     Width:INT,
  325.     Height:INT
  326.  
  327. OBJECT Window
  328.     NextWindow:PTR TO Window,
  329.     LeftEdge:INT,
  330.     TopEdge:INT,
  331.     Width:INT,
  332.     Height:INT,
  333.     MouseY:INT,
  334.     MouseX:INT,
  335.     MinWidth:INT,
  336.     MinHeight:INT,
  337.     MaxWidth:UWORD,
  338.     MaxHeight:UWORD,
  339.     Flags:LONG,
  340.     MenuStrip:PTR TO Menu,
  341.     Title:PTR TO CHAR,
  342.     FirstRequest:PTR TO Requester,
  343.     DMRequest:PTR TO Requester,
  344.     ReqCount:INT,
  345.     WScreen:PTR TO Screen,
  346.     RPort:PTR TO RastPort,
  347.     BorderLeft:CHAR,
  348.     BorderTop:CHAR,
  349.     BorderRight:CHAR,
  350.     BorderBottom:CHAR,
  351.     BorderRPort:PTR TO RastPort,
  352.     FirstGadget:PTR TO Gadget,
  353.     Parent:PTR TO Window,
  354.     Descendant:PTR TO Window,
  355.     Pointer:PTR TO UWORD,
  356.     PtrHeight:CHAR,
  357.     PtrWidth:CHAR,
  358.     XOffset:CHAR,
  359.     YOffset:CHAR,
  360.     IDCMPFlags:LONG,
  361.     UserPort:PTR TO MP,
  362.     WindowPort:PTR TO MP,
  363.     MessageKey:PTR TO IntuiMessage,
  364.     DetailPen:CHAR,
  365.     BlockPen:CHAR,
  366.     CheckMark:PTR TO Image,
  367.     ScreenTitle:PTR TO CHAR,
  368.     GZZMouseX:INT,
  369.     GZZMouseY:INT,
  370.     GZZWidth:INT,
  371.     GZZHeight:INT,
  372.     ExtData:PTR TO CHAR,
  373.     UserData:PTR TO CHAR,
  374.     WLayer:PTR TO Layer,
  375.     IFont:PTR TO TextFont,
  376.     MoreFlags:LONG
  377.  
  378. CONST    WFLG_SIZEGADGET=1,
  379.         WFLG_DRAGBAR=2,
  380.         WFLG_DEPTHGADGET=4,
  381.         WFLG_CLOSEGADGET=8,
  382.         WFLG_SIZEBRIGHT=16,
  383.         WFLG_SIZEBBOTTOM=$20,
  384.         WFLG_REFRESHBITS=$C0,
  385.         WFLG_SMART_REFRESH=0,
  386.         WFLG_SIMPLE_REFRESH=$40,
  387.         WFLG_SUPER_BITMAP=$80,
  388.         WFLG_OTHER_REFRESH=$C0,
  389.         WFLG_BACKDROP=$100,
  390.         WFLG_REPORTMOUSE=$200,
  391.         WFLG_GIMMEZEROZERO=$400,
  392.         WFLG_BORDERLESS=$800,
  393.         WFLG_ACTIVATE=$1000,
  394.         WFLG_RMBTRAP=$10000,
  395.         WFLG_NOCAREREFRESH=$20000,
  396.         WFLG_NW_EXTENDED=$40000,
  397.         WFLG_NEWLOOKMENUS=$200000,
  398.         WFLG_WINDOWACTIVE=$2000,
  399.         WFLG_INREQUEST=$4000,
  400.         WFLG_MENUSTATE=$8000,
  401.         WFLG_WINDOWREFRESH=$1000000,
  402.         WFLG_WBENCHWINDOW=$2000000,
  403.         WFLG_WINDOWTICKED=$4000000,
  404.         WFLG_VISITOR=$8000000,
  405.         WFLG_ZOOMED=$10000000,
  406.         WFLG_HASZOOM=$20000000,
  407.         SUPER_UNUSED=$FCFC0000,
  408.         DEFAULTMOUSEQUEUE=5
  409.  
  410. OBJECT NW
  411.     LeftEdge:INT,
  412.     TopEdge:INT,
  413.     Width:INT,
  414.     Height:INT,
  415.     DetailPen:CHAR,
  416.     BlockPen:CHAR,
  417.     IDCMPFlags:LONG,
  418.     Flags:LONG,
  419.     FirstGadget:PTR TO Gadget,
  420.     Checkmark:PTR TO Image,
  421.     Title:PTR TO CHAR,
  422.     Screen:PTR TO Screen,
  423.     BitMap:PTR TO BitMap,
  424.     MinWidth:INT,
  425.     MinHeight:INT,
  426.     MaxWidth:UWORD,
  427.     MaxHeight:UWORD,
  428.     Type:UWORD
  429.  
  430. OBJECT ExtNewWindow OF NW
  431.     Extension:PTR TO TagItem
  432.  
  433. CONST    WA_Left=$80000064,
  434.         WA_Top=$80000065,
  435.         WA_Width=$80000066,
  436.         WA_Height=$80000067,
  437.         WA_DetailPen=$80000068,
  438.         WA_BlockPen=$80000069,
  439.         WA_IDCMP=$8000006A,
  440.         WA_Flags=$8000006B,
  441.         WA_Gadgets=$8000006C,
  442.         WA_CheckMark=$8000006D,
  443.         WA_Title=$8000006E,
  444.         WA_ScreenTitle=$8000006F,
  445.         WA_CustomScreen=$80000070,
  446.         WA_SuperBitMap=$80000071,
  447.         WA_MinWidth=$80000072,
  448.         WA_MinHeight=$80000073,
  449.         WA_MaxWidth=$80000074,
  450.         WA_MaxHeight=$80000075,
  451.         WA_InnerWidth=$80000076,
  452.         WA_InnerHeight=$80000077,
  453.         WA_PubScreenName=$80000078,
  454.         WA_PubScreen=$80000079,
  455.         WA_PubScreenFallBack=$8000007A,
  456.         WA_WindowName=$8000007B,
  457.         WA_Colors=$8000007C,
  458.         WA_Zoom=$8000007D,
  459.         WA_MouseQueue=$8000007E,
  460.         WA_BackFill=$8000007F,
  461.         WA_RptQueue=$80000080,
  462.         WA_SizeGadget=$80000081,
  463.         WA_DragBar=$80000082,
  464.         WA_DepthGadget=$80000083,
  465.         WA_CloseGadget=$80000084,
  466.         WA_BackDrop=$80000085,
  467.         WA_ReportMouse=$80000086,
  468.         WA_NoCareRefresh=$80000087,
  469.         WA_BorderLess=$80000088,
  470.         WA_Activate=$80000089,
  471.         WA_RMBTrap=$8000008A,
  472.         WA_WBenchWindow=$8000008B,
  473.         WA_SimpleRefresh=$8000008C,
  474.         WA_SmartRefresh=$8000008D,
  475.         WA_SizeBRight=$8000008E,
  476.         WA_SizeBBottom=$8000008F,
  477.         WA_AutoAdjust=$80000090,
  478.         WA_GimmeZeroZero=$80000091,
  479.         WA_MenuHelp=$80000092,
  480.         WA_NewLookMenus=$80000093,
  481.         WA_AmigaKey=$80000094,
  482.         WA_NotifyDepth=$80000095,
  483.         WA_Obsolete=$80000096,
  484.         WA_Pointer=$80000097,
  485.         WA_BusyPointer=$80000098,
  486.         WA_PointerDelay=$80000099,
  487.         WA_TabletMessages=$8000009A,
  488.         WA_HelpGroup=$8000009B,
  489.         WA_HelpGroupWindow=$8000009C,
  490.         HC_GADGETHELP=1
  491.  
  492. OBJECT Remember
  493.     NextRemember:PTR TO Remember,
  494.     RememberSize:LONG,
  495.     Memory:PTR TO CHAR
  496.  
  497. OBJECT ColorSpec
  498.     ColorIndex:INT,
  499.     Red:UWORD,
  500.     Green:UWORD,
  501.     Blue:UWORD
  502.  
  503. OBJECT EasyStruct
  504.     StructSize:LONG,
  505.     Flags:LONG,
  506.     Title:PTR TO CHAR,
  507.     TextFormat:PTR TO CHAR,
  508.     GadgetFormat:PTR TO CHAR
  509.  
  510. #define MENUNUM(n) ((n) & $1F)
  511. #define ITEMNUM(n) (Shr((n),5) & $3F)
  512. #define SUBNUM(n)  (Shr((n),11) & $1F)
  513.  
  514. #define SHIFTMENU(n) ((n) & $1F)
  515. #define SHIFTITEM(n) (Shl((n) & $3F,5))
  516. #define SHIFTSUB(n)  (Shl((n) & $1F,11))
  517.  
  518. #define FULLMENUNUM(menu,item,sub) (SHIFTSUB(sub)|SHIFTITEM(item)|SHIFTMENU(menu))
  519.  
  520. #define SRBNUM(n)  (8-Shr((n),4))
  521. #define SWBNUM(n)  (8-((n) AND $F))
  522. #define SSBNUM(n)  (1+Shr((n),4))
  523. #define SPARNUM(n) (Shr((n),4))
  524. #define SHAKNUM(n) ((n) AND $F)
  525.  
  526. CONST    NOMENU=31,
  527.         NOITEM=$3F,
  528.         NOSUB=31,
  529.         MENUNULL=$FFFF,
  530.         CHECKWIDTH=19,
  531.         COMMWIDTH=27,
  532.         LOWCHECKWIDTH=13,
  533.         LOWCOMMWIDTH=16,
  534.         ALERT_TYPE=$80000000,
  535.         RECOVERY_ALERT=0,
  536.         DEADEND_ALERT=$80000000,
  537.         AUTOFRONTPEN=0,
  538.         AUTOBACKPEN=1,
  539.         AUTODRAWMODE=1,
  540.         AUTOLEFTEDGE=6,
  541.         AUTOTOPEDGE=3,
  542.         AUTOITEXTFONT=0,
  543.         AUTONEXTTEXT=0,
  544.         SELECTUP=$E8,
  545.         SELECTDOWN=$68,
  546.         MENUUP=$E9,
  547.         MENUDOWN=$69,
  548.         MIDDLEUP=$EA,
  549.         MIDDLEDOWN=$6A,
  550.         ALTLEFT=16,
  551.         ALTRIGHT=$20,
  552.         AMIGALEFT=$40,
  553.         AMIGARIGHT=$80,
  554.         AMIGAKEYS=$C0,
  555.         CURSORUP=$4C,
  556.         CURSORLEFT=$4F,
  557.         CURSORRIGHT=$4E,
  558.         CURSORDOWN=$4D,
  559.         KEYCODE_Q=16,
  560.         KEYCODE_Z=$31,
  561.         KEYCODE_X=$32,
  562.         KEYCODE_V=$34,
  563.         KEYCODE_B=$35,
  564.         KEYCODE_N=$36,
  565.         KEYCODE_M=$37,
  566.         KEYCODE_LESS=$38,
  567.         KEYCODE_GREATER=$39,
  568.         TABLETA_Dummy=$8003A000,
  569.         TABLETA_TabletZ=$8003A001,  -> Data for this tag is unsigned INT
  570.         TABLETA_RangeZ=$8003A002,
  571.         TABLETA_AngleX=$8003A003,
  572.         TABLETA_AngleY=$8003A004,
  573.         TABLETA_AngleZ=$8003A005,
  574.         TABLETA_Pressure=$8003A006,
  575.         TABLETA_ButtonBits=$8003A007,
  576.         TABLETA_Inproximity=$8003A008,
  577.         TABLETA_ResolutionX=$8003A009,
  578.         TABLETA_ResolutionY=$8003A00A
  579.  
  580. OBJECT TabletData
  581.     XFraction:UWORD,
  582.     YFraction:UWORD,
  583.     TabletX:LONG,
  584.     TabletY:LONG,
  585.     RangeX:LONG,
  586.     RangeY:LONG,
  587.     TagList:PTR TO TagItem
  588.  
  589. OBJECT TabletHookData
  590.     Screen:PTR TO Screen,
  591.     Width:LONG,
  592.     Height:LONG,
  593.     ScreenChanged:LONG
  594.